#! /usr/bin/perl
use strict;
use warnings;

printf "Hello, %s; your password expires in %d days!\n", "tataki", 4;

